home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / inplace_t < prev    next >
Text File  |  1992-02-23  |  1KB  |  51 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/io/inplace.t.old    Tue Apr 23 22:38:18 1991
  14. --- t/io/inplace.t    Thu Nov 14 08:57:08 1991
  15. ***************
  16. *** 6,13 ****
  17.   
  18.   print "1..2\n";
  19.   
  20. ! @ARGV = ('.a','.b','.c');
  21. ! `echo foo | tee .a .b .c`;
  22.   while (<>) {
  23.       s/foo/bar/;
  24.   }
  25. --- 6,13 ----
  26.   
  27.   print "1..2\n";
  28.   
  29. ! @ARGV = ('a','b','c');
  30. ! `echo foo | tee a b c`;
  31.   while (<>) {
  32.       s/foo/bar/;
  33.   }
  34. ***************
  35. *** 15,21 ****
  36.       print;
  37.   }
  38.   
  39. ! if (`cat .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
  40. ! if (`cat .a.bak .b.bak .c.bak` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  41.   
  42. ! unlink '.a', '.b', '.c', '.a.bak', '.b.bak', '.c.bak';
  43. --- 15,21 ----
  44.       print;
  45.   }
  46.   
  47. ! if (`cat a b c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
  48. ! if (`cat a.bak b.bak c.bak` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  49.   
  50. ! unlink 'a', 'b', 'c', 'a.bak', 'b.bak', 'c.bak';
  51.